home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1463.dms / var1463.adf / BBBBS72.lha / rexx / PhoneDupes.rexx < prev    next >
OS/2 REXX Batch file  |  1993-07-09  |  1KB  |  63 lines
  1. /* UserCheck.rexx 6.0 (9.7.93)
  2.    Checks user files for duplicate phone numbers.
  3. */
  4.  
  5. CALL TIME('R')
  6. figarg='s:CONFIG.BBS'
  7. IF ~EXISTS(figarg) THEN figarg='BBS:BBS_TEXT/CONFIG.BBS'
  8. x=OPEN(f,figarg,'R')
  9. IF x=0 THEN
  10.   DO
  11.     SAY 's:CONFIG.BBS and BBS:BBS/CONFIG.BBS are both missing!'
  12.     EXIT(20)
  13.   END
  14. lynes.=''
  15. DO i=1 TO 8
  16.   lynes.i=READLN(f)
  17. END
  18. CALL CLOSE(f)
  19. compos=POS('/*',lynes.1)
  20. IF compos>0 THEN lynes.1=LEFT(lynes.1,compos-1)
  21. bbsname = STRIP(lynes.1)
  22. sysop   = UPPER(WORD(lynes.2,1))
  23. bbspath = WORD(lynes.6,1)
  24. IF ~EXISTS(bbspath) THEN
  25.   DO
  26.     SAY bbspath 'does not exist!'
  27.     EXIT(20)
  28.   END
  29. testchar=RIGHT(bbspath,1)
  30. IF testchar~='/' & testchar~=':' THEN bbspath=bbspath'/'
  31. libpath            = WORD(lynes.8,1)
  32. IF ~EXISTS(libpath) THEN
  33.   DO
  34.     MSG libpath 'does not exist!'
  35.     EXIT(20)
  36.   END
  37. testchar=RIGHT(libpath,1)
  38. IF testchar~='/' & testchar~=':' THEN libpath=libpath'/'
  39.  
  40. p.=''
  41. mask=COMPRESS(XRANGE(),'0123456789')
  42. users=SHOWDIR(bbspath'Users')
  43. DO i=1 TO WORDS(users)
  44.   user=WORD(users,i)
  45.   x=OPEN(f,bbspath'Users/'user,'R')
  46.   IF x=0 THEN ITERATE i
  47.   DO j=1 TO 4
  48.     line=READLN(f)
  49.   END
  50.   CALL CLOSE(f)
  51.   ph=RIGHT(COMPRESS(line,mask),7)
  52.   IF ~DATATYPE(ph,'W') THEN
  53.     DO
  54.       SAY 'No phone number for' user
  55.       ITERATE i
  56.     END
  57.   IF p.ph='' THEN p.ph=user
  58.   ELSE SAY RIGHT(user,25) 'has same phone number as' p.ph
  59. END
  60. SAY 'Elapsed:' TIME('E')
  61.  
  62. /* UserCheck.rexx */
  63.